home *** CD-ROM | disk | FTP | other *** search
- name Maho XY Plane (G18) 4 axis
-
- % 00
- ! 00
- N >9
- G >2
- g >2 G
- X ->3.>4
- x ->3.>4 X
- Z ->3.>4 Mult -1
- z ->3.>4 Z Mult -1
- Y ->3.>4
- y ->3.>4 Y
- B ->3.>4
- b ->3.>4 B
- I ->3.>4
- i ->3.>4 I
- J ->3.>4
- K ->3.>4 Mult -1
- k ->3.>4 K
- F >4
- T >2
- M >2
- S >4
- W 00
-
- ModalLetters X Y Z F B # List of letters that are modal
-
- ModalGs 0 1 2 3 81 83 84 # List of g codes that are modal
-
- Sequence#s N 1 1 1 # Char, freq, incr & start
- First#? N # Y or N 'Output 1st sequence no.
- Last#? N # Y or N 'Output last sequence no.
-
- HCode X # X or X U 'Horizontal char.
- VCode Z # Y or Y V 'Vertical char.
- Dcode Y # Depth char.
- FeedCode F # Feed rate char.
-
- Comment ( ) # Begin End comment char.
-
- Spindle 3 4 5 # Cw, ccw & stop m codes
- Coolant 8 9 7 # On, Off & Mist m codes
- DComp 41 42 40 # Left, Right & Cancel m codes
- LComp 43 49 # On & Off codes
-
- Feed G1 # Linear move
- Rapid G0 # Rapid positioning word
- Cw G2 # Circular move clockwise
- Ccw G3 # Circular move counter clockwise
-
- Inc/Abs G 91 90 # Inc & Abs char. & values
-
- CtrCode I K # I J or R or I J K L
- Helical? N
-
- Spaces? Y # Y or N 'Spaces between words
-
- Incremental? N # Y or N 'Inc or abs output
- CtrIncremental? N # Y or N 'Inc or abs I & J
- ByQuadrants? N # Y or N 'Break arcs at quadrants
-
- UppercaseComments? Y # Y or N 'Require uppercase comments
-
- Drill 2 # Drilling canned/manual cycle
- G81 z[Depth] b[Rplane] S[Speed] F[Frate] M13 y2
- G79 X[H] Y[PointD] Z[V]
- G79 X[H] Y[PointD] Z[V]
- end
-
- Peck 2 # Pecking canned/manual cycle
- G83 z[Depth] b[RPlane] S[Speed] F[Frate] M13 y2 k[VBite]
- G79 X[H] Y[PointD] Z[V]
- G79 X[H] Y[PointD] Z[V]
- end
-
- Tap 2 # Tapping canned/manual cycle
- G84 z[Depth] b[RPlane] S[Speed] F[Frate] M13 y2
- G79 X[H] Y[PointD] Z[v]
- G79 X[H] Y[PointD] Z[v]
- end
-
- Ream 2 # Reaming canned/manual cycle
- G85 z[Depth] b[RPlane] S[Speed] F[Frate] M13 y2
- G79 X[H] Y[PointD] Z[V]
- G79 X[H] Y[PointD] Z[V]
- end
-
- Bore 2 # Boring canned/manual cycle
- G86 z[Depth] b[Rplane] S[Speed] F[Frate] M13 y2
- G79 X[H] Y[PointD] Z[V]
- G79 X[H] Y[PointD] Z[V]
- end
-
- Back # Back boring canned/manual cycle
- end cancel
-
- Cancel # Cancel a canned/manual cycle
- G80
- end
-
- Index X # Index the rotary table
- Ask [Val1] " Enter Retract value in Y before rotary move: " "10"
- g91
- G0 Y[Val1]
- G90
- G0 B[Rotangle]
- end
-
- Unwind # Unwind the rotary table
- G0 Y00
- G0 B0
- G0 B[LastRotAng]
- G0 Y[LastD]
- end
-
- StartCode # Start of the program
- Ask [Val7] " Enter Safety clearance in Y before toolchange: " "10"
- Ask [Val6] " Enter M-code for toolchange: " "6"
- Ask [Val8] " Enter Offset register: " "54"
- %0
- !0 N[Program#]
- End
-
- 1stToolChange # First tool change
- G18 T[Tool] M[Val6]
- G51
- G53
- G[Val8]
- G90
- G0 X[H] Z[V] Y[D] S[Speed] F[FRate] M13
- End
-
- Infeed # Enable cutter comp
- G1 Y[D] F[Plunge]
- G43 X[H] Z[V] F[FRate]
- G[Side]
- end
-
- Outfeed # Disable cutter comp
- G40
- G1 X[H] Z[V]
- end
-
- ToolChange # Secondary tool changes
- G0 Y[Val7]
- T[Tool] M[Val6]
- G0 X[H] Z[V] Y[D] S[Speed] F[FRate] M13
- End
-
- EndCode # End of the program
- G0 Y[Val7]
- G53
- M30
- W0
- End
-
- LineCode # Linear move
- G1 X[H] Y[V] Z[D] B[RotAngle] F[Frate]
- End
-
- Replace "%" with "%PM"
-
-
-